(display "Testing simple let with define\n")
(display (let ((x 1))
    (define y 2)
    (+ x y)))
(display "\n")